#Include 'Protheus.ch'

User Function REI10G01()

Local cDesc := ""

If (Funname() == "MATA381") 

	cDesc := GetAdvFVal("SB1","B1_DESC",xFilial("SB1")+ACOLS[N,1],1,"")
	
Else

	cDesc := GetAdvFVal("SB1","B1_DESC",xFilial("SB1")+SD4->D4_COD,1,"")
	
EndIf


Return cDesc

